home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Source Code
/
Visual Basic Source Code.iso
/
vbsource
/
webmon_1
/
modweb.bas
< prev
next >
Wrap
BASIC Source File
|
1999-08-05
|
1KB
|
54 lines
Attribute VB_Name = "modWeb"
Global blnSpeak As Boolean
Global blnEdit As Boolean
Option Explicit
Public Function CheckUrl(URL As String, FormName As Form, Optional connType As String) As Boolean
On Error GoTo e_trap
Dim strTempData As String
DoEvents
strTempData = FormName.inetWeb.OpenURL(URL)
DoEvents
If strTempData <> "" Then
CheckUrl = True
Else
CheckUrl = False
End If
Exit Function
e_trap:
CheckUrl = False
End Function
Public Sub refresh()
Dim count As Integer
Dim X As Integer
count = Val(LSetting("NoOfServers"))
For X = 0 To count - 1
frmMain.lblServer(X).Caption = LSetting("MName" & X)
frmMain.lblServer(X).Visible = True
Next X
count = Val(LSetting("NoOfGateWays"))
For X = 0 To count - 1
FrmGateWay.lblGateWay(X).Caption = LSetting("GateWayName" & X)
FrmGateWay.lblGateWay(X).Visible = True
Next X
End Sub
Public Function ConvertToHMS(Seconds As Long) As String
Dim strHours As String
Dim strMins As String
Dim strSec As String
strSec = (Seconds Mod 60)
strMins = (Seconds - strSec) / 60
ConvertToHMS = CStr(strMins & ":" & strSec)
End Function
Public Function SayThis(Text As String) As Boolean
If frmPopups.mnuSpeak.Checked = True Then
SaveSetting "FastTrack", "Speech", "SayThis", Text
Else
'no speaking
Exit Function
End If
End Function